Umlaute für Coleur Genie EG 2000 


Das Colour Genie besitzt ei- 
nen Satz von 128 frei definier- 
baren Zeichen, die ab 
CHR$(128) beginnen. Das 
vorliegende Programm belegt 
die CHR$-Codes (128) bis 
(134) mit den Umlauten Ä, ä, 
ö, ö, Ü, ü. Nach RUN stehen 


die Zeichen zur Verfügung und 
können beliebig in die Texte 
eingemischt werden. Durch 
NEW wird nur das Programm 
gelöscht. Daher sollte das Pro- 
gramm jeweils vor Beginn des 
normalen Programmierens ge- 
laden werden. 


10 REM ANFANG 

20 REM UMLAUTE COPVRIGHT ALFRED GöRGENS 
30 CLS 

40 REM CHR$ <129) = Ä 
50 POKE &HF408 > 66 


50 POKE 

&HF409 t 24 

290 

POKE 

&HF420 > 0 

70 POKE 

&HF40A, 36 

300 

POKE 

&HF42 1 > 68 

30 POKE 

&HF4QB > 66 

310 

POKE 

&HF422 > 0 

90 POKE 

&HF40C > 126 

320 

POKE 

&HF423 » 56 

100 

POKE 

&HF40Ü > 66 

330 

POKE 

&HF424, 68 

110 

POKE 

&HF40E ? 66 

340 

POKE 

&HF425 y 68 

120 

POKE 

&HF40F > 0 

350 

POKE 

&HF426. 56 

125 

REM 

CHR$ < 1 30> = ä 

360 

POKE 

&HF427 > 0 

130 

POKE 

&HF4 1 0 > 0 

365 

REM CHR$ ( 1 33 > = ü 

140 

POKE 

&HF411, 130 

370 

POKE 

&HF428,68 

150 

POKE 

&HF 4 1 2 > 56 

380 

POKE 

&HF429, 0 

160 

POKE 

&HF4 1 3 > 4 

390 

POKE 

&HF42A, 68 

170 

POKE 

&HF414,60 

400 

POKE 

&HF42B > 68 

180 

POKE 

&HF4 1 5 ? 68 

410 

POKE 

&HF42C ? 68 

190 

POKE 

8cHF 4 1 6 > 60 

420 

POKE 

&HF 42 D » 68 

200 

POKE 

&HF4 1 7 !• 0 

430 

POKE 

& H F 4 2 E * 62 

205 

REM 

CHR$ < 1 3 1 > = ö 

440 

POKE 

&HF42F, 0 

210 

POKE 

8cHF 4 1 8 > 129 

445 

REM CHRf ( 1 34 ) = ü 

220 

POKE 

&HF4 1 9 ? 60 

450 

POKE 

&HF43Q y 0 

230 

POKE 

&HF4 1 A ? 68 

460 

POKE 

&HF431 , 68 

240 

POKE 

8cHF41B,68 

470 

POKE 

&HF432 » 0 

250 

POKE 

&HF4 1 C ? 68 

480 

POKE 

&HF433 > 68 

260 

POKE 

&HF4 1 D » 68 

490 

POKE 

&HF434 ? 68 

270 

POKE 

&HF41E, 60 

500 

POKE 

&HF435 > 68 

280 

POKE 

8cHF41F,0 

510 

POKE 

€= HF436, 60 

285 

REM 

CHR$ < 132) = ö 

520 

POKE 

8cHF437,0 




